!   _______________________________________________________________________________
!    _______/\\\\\\\\\_______/\\\\\\\\\______/\\\\\\\\\\\\\\__/\\\\\\\\\\\\\\\______
!     _____/\\\////////_____/\\\////////_____\/\\\//////////__\/\/////////////________
!      ___/\\\/____________/\\\/______________\/\\\____________\/\\\________/\\\\_______
!       __/\\\____________/\\\_________________\/\\\\\\\\\\\\\__\/\\\_______\////________
!        _\/\\\___________\/\\\_________________\/\\\/////////___\/\\\________/\\\\_______
!         _\//\\\__________\//\\\________________\/\\\____________\/\\\_______\////________
!          __\///\\\_________\///\\\______________\/\\\____________\/\\\______/\\\\_________
!           ____\////\\\\\\\\\____\////\\\\\\\\\___\/\\\____________\/\\\\\\\\\////__________
!            _______\/////////_______\/////////_____\///_____________\/////////_______________
!            __________________________________________________________________________________
!----------------------------------------------------------------------------------------------
!>  subroutine input_files_cgns
!>  last edit 2016-05-24
!>  last edit by liuxz
!----------------------------------------------------------------------------------------------
    subroutine residual_show(error,finish_t)
        use global_parameter
        !>
        !>
		implicit none
		!>
		!>
        real(kind =dprec) :: error,finish_t,total_t

        !>
        !>
        !>
        integer::icyc1,iseq
        !>
        !>
        !>
        total_t    = 0.0
        !> show the erroer data
        icyc1 = icyc
        !>
        do iseq=1,imeshseque-1
            icyc1 = icyc1 + ncycle(iseq)
        end do
        !>
        total_t  = finish_t*(total_ncyc - icyc1)
        total_t  = total_t/60.0
        !>
        !>
        open(unit=61,file='ccfd.out',form='formatted',status='unknown')


        open(unit=71,file='ccfd.resid',form='formatted',status='unknown')
        !>
        !>
        if(icyc .eq. 1)then
            write(61,*) '*********************************************************'
            write(61,*) 'the ',imeshseque,'-level of mesh sequence iterative will begin'
            write(61,*) '*********************************************************'
        end if
        !>
        !>
        write(71,'(i9,4e24.16)') icyc1,log10(error),cl/a_ref,cd/a_ref,finish_t

        write( 6,'(1x,"iterations=",i8," residual=",e24.16," cpu_time=",e24.16,"(s)"," rest_time=",f8.4,"(mins)")') &
                    icyc1,log10(error),finish_t,total_t
        write(61,'(1x,"iterations=",i8," residual=",e24.16," cpu_time=",e24.16,"(s)"," rest_time=",f8.4,"(mins)")') &
                    icyc1,log10(error),finish_t,total_t
        !>

        return
    end subroutine residual_show


